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We at Melbourne House are very excited 
to be involved with the publication of 
this book, making available as it does 
30 interesting and varied programs for 
the SINCLAIR ZX 80, probably the first 
computer in the world to be readily 
accessible and affordable. 

And we will not be stopping with the 
publication of this book - others are 
being prepared, including *ZX-80 
MACHINE LANGUAGE PROGRAMMING’. 


We have a commitment to providing 
literature and software for the ZX-80, 
so if you have a program or an article 
which you think would be of interest to 
other ZX -80 users, please write to us. 
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reply whether the material is something we 
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In the meantime, happy computing. 
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Leap Frog 

This is a nice simple program, testing 
the player's logic. The object is to move 
all the frogs on the left to the right, and 
vice versa. Frogs can only leap over one 
frog or move to an adjacent empty space. 
0000 0000 
123456789 

The first move could be 35, ^5, 65 or 75. 

Variables: P Position of frogs 

C Number of moves to date 
F "from" 

T’ "to" 


Program description: 

100 

- 250 

Initialisation 

300 

- 370 

Print routine 

500 

- 620 

Input player move 

700 

- 760 

Test if finished 

800 

- 900 

End 
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Leap Frogs 


100 

DIM P(9) 


200 

LET P(5) = 0 


210 

FOR I = 1 TO 4 


220 

LET P(l) = 129 


230 

LET P(l + 5) = 128 


2*10 

NEXT I 


250 

LET C = 0 


300 

CLS 


310 

FOR I = 1 TO 9 


320 

PRINT CHR$(p(l))j" * 

r t 
j 

330 

NEXT I 


3*10 

PRINT 


350 

FOR I = 1 TO 9 


360 

PRINT I;" "j 


370 

NEXT I 


500 

PRINT "ENTER MOVE" 


510 

INPUT A 


520 

IF A = 0 THEN GO TO 

900 

530 

LET F = A / 10 


5*10 

IF F = 0 THEN GO TO 

510 

550 

IF P(F) = 0 THEN GO 

to 510 

560 

UET T = A - 10 * F 


570 

IF T = 0 THEN GO TO 

510 
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580 IF P(T) ) 0 THEN GO TO 510 
590 IF abs(t - F) ) 2 THEN GO TO 510 
600 LET C = C + 1 
610 LET P(t) = p(f) 

620 LET p(f) = 0 
700 LET X = 0 
710 FOR I = 1 TO 9 
720 IF I = 5 THEN GO TO 740 
730 IF NOT p(l) = 128 - (i ) 5) THEN LET X 
= 1 

740 NEXT I 

750 LET X = X + p(5) 

760 IF X > 0 THEN GO TO 300 

800 PRINT "you did IT IN "}Cj" moves" 

810 pr i m "another go?" 

820 INPUT A$ 

830 if code (a$) = 62 then go to 200 
900 print "byebye" 
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Encoding 

An absolutely unbeatable method of 
producing secret messages! As the key to 
the coding is the ZX-80 random number 
generator, it would be impossible for 
.anyone without a ZX-80 (and a lot of 
patience) to crack such a message. 

To decode, just enter the negative 
of the code number that produced the 
message. 

Xjyf bz trdubxa ! 

Variables: A$ message to be coded/decoded 

T code number 
B letter by letter value 
coded / decoded 
Program description: 

160 Sets coding key 

190 - 280 Coding / decoding 
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Encoding 

100 PRINT "ENTER MESSAGE" 

110 INPUT A$ 

120 PRINT A$ 

130 PRINT "ENTER CODE NUMBER (1 - 256)", 

MO INPUT T 

150 PRINT T 

160 RANDOMISE ABS(t) 

170 IF T ( 0 THEN PRINT "DE"; 

180 PRINT "CODED MESSAGE IS" 

190 LET R = RND (26) 

200 IF T ( 0 THEN LET R = 26 - R 
210 IF A$ = "" THEN GO TO 300 
220 LET B = CODE (a$) 

230 LET A$ - TL$ (A$) 

240 IF B = 0 THEN GO TO 280 
250 letb = b + r- 38 
260 let b = b - 26 * (b / 26) 

270 let b = b + 38 
280 print chr$ (b); 

290 go to 190 
300 print 

310 print "any other message?" 

320 INPUT A$ 


11 



330 IF NOT CODE (A$) = 62 THEN GO TO 360 

340 cls 

350 go to 100 

360 PRINT "byebye" 
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Horse Race 

A day at the races without even having 
to leave the ZX-80! Four horses (A, B, C, 
and D) are assigned odds and you have £100 
betting money. 

Line 360 calculates how well the horse 
runs - the favourite is more predictable, 
but the long odds have more likelihood of 
being surprising. 

This program is very full, especially 
when the race is being run as the screen 
display occupies a lot of memory. 

The characters which make up the horses 
are (the shifted characters above the letters) 
A$: F,T,S. B$: (space),S,G,Q. C$: R,(space), 
(space),E. 

Variables; M Money left 
B Bet 

0 (l)0dds for each horse 
D, D(l) Distance covered 
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Horse Race 

50 RANDOMISE 
60 dim o(4) 

70 DIM D(4) 

80 L£T A$ = " I 

90 LET B$ = " Jgr* 

100 LET C$ = "L3 c_r 

HO LET M = 100 

120 GO TO 200 

130 FOR C = 1 TO D 

140 PRINT " A 

150 NEXT C 

160 RETURN 

170 FOR I = 0 TO 4 

180 LET D(l) = 0 

190 NEXT I 

200 PRINT "YOU HAVE £"jM 
210 PRINT "ENTER BET" 

220 PRINT 
230 PRINT "odds" 

240 FOR I - 1 TO 4 

250 LET o(l) = RND (9) + 1 

260 PRINT chr$ (i + 37), o(i); "/l" 

270 NEXT I 

280 INPUT B 
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290 IF B = 0 THEN GO TO 999 
300 PRINT "HORSE?" 

310 INPUT H$ 

320 FOR L = 1 TO 9 
330 cls 

390 PRINT "LAP ";L 
350 FOR I = 1 TO 4 

360 LET D(l) = D(l) +5+1 f o(l) + RND 
(2 * 0(1) / 3) 

370 if d(i) ) d(0) then let d(0) = d(i) 

380 if d(0) = d(i) then let j = i 

390 NEXT I 

900 FOR I = 1 TO 9 

910 PRINT CHR$ (i +37) 

920 LET D - D(l) - D(0) + 15 
930 go sub 130 
990 PRINT A$ 

950 go sub 130 
960 PRINT B$ 

970 go sub 130 
980 PRINT c$ 

990 PRINT 
500 NEXT I 

510 PRINT "PRESS n/l" 

520 INPUT D$ 
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530 

NEXT L 


9W 

CLS 


550 

PRINT "WINNER 

is chr$ (j + 37) 

560 

LET S = 0 


570 

IF CODE (H$) = 

= J + 37 THEN LET S = 1 

580 

LET M = M - B 

+ S * B * O(j) 

590 

IF M ( 1 THEN 

go to 999 

600 

GO TO 170 


999 

PRINT "BIBl" 
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Lunar Lander 

A real live Lunar Lander 
that comes down to (hopefully) 
land safely on the Moon. 

This program takes advantage 
of the fact that variables calculated or 
stored in a RUN are retained until they 
are CLEARed or another RUN is pressed. 

By using the GO TO 100 instead, the 
Lunar Lander shape is retained in memory 
and the program lines which created it 
(200 - 250) are overwritten. 

Variables: H,V,R Height, Velocity, Fuel 
F,T Thrust and duration 
A(I) Lunar Lander shape 

L Lines between Lander & 

the Moon 

Program description: 

200 - 250 Lunar Lander shape then 

replaced by Print routine 
500 - 690 Display routine 

NOTE : This program can be SAVEd, and the 
variables will also be saved. 

IT 




Lunar Lander 

90 dim a(19) 

100 let v = - 50 
110 let h = 1500 
120 LET R = 7000 
200 FOR I = 0 TO 19 
210 PRINT I, 

220 INPUT X 
230 LET a(i) = X 
240 PRINT a(i) 

250 NEXT I 

> R*U*N 

ENTER FOLLOWING VALUES: 

0, 0, 156, 0, 0, 0, 8, 3, 136, 0, 0, 

2, 3, 130, 0, 134, 131, 3, 131, 135 

200 FOR I = 0 TO 3 
210 FOR X = 0 TO 4 
220 PRINT chr$(a(x + 5 * i)); 

230 NEXT X 
240 PRINT 
250 NEXT I 

> G*0 T*0 1*0*0 TO VERIFY LUNAR LANDER SHAPE 


18 



130 go to 500 
260 RETURN 

300 print "thrust (0 - 99)?", 

310 INPUT F 
320 PRINT F 

330 PRINT "duration (1-10)?", 

340 INPUT T 

350 cls 

360iff*t)r/10 then let f = r / 10 

* T 

370 LET R = R - F* T * 10 

400 LET A = F - 32 

410leth = a*t**2 + v*t + h 

420 letv = 2*a*t + v 

500 LET L - H / 100 

510 IF L < 0 THEN LET L = 0 

520 IF L > 12 THEN LET L = 12 

530 FOR I = L TO 12 

540 PRINT 

550 NEXT I 

560 IF L > 8 THEN GO SUB 200 
570 print , /; veloc","heigkt","fuel" 

580 PRINT , V, H, R 

600 IF L < 9 THEN GO SUB 200 

610 IF L = 0 THEN GO TO 650 
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620 FOR I = 1 TO L - 1 
630 PRINT 
640 NEXT I 

650 IF H < 0 THEN PRINT "**CRASH**" 

660 FOR I = 1 TO 16 
670 print "IB"; 

680 NEXT I 

690 IF L ) 0 THEN GO TO 300 

700 IF H < 0 OR V < - 99 THEN GO TO 730 

710 PRINT 100 + v;" percent ok" 

720 stop 

730 print "terrible" 


Important note: 

To RUN THIS PROGRAM., DO NOT PRESS R*IWI 
AS THIS WILL CLEAR THE VARIABLES WITH 
THE LUNAR LANDER SHAPE, 

Use 6*0 T*0 1*0*0, 
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ft\ZES 

A maze generating program: there are 
no guarantees that a solution is available, 
but it's unlikely you won't find one. 

Slipping down the sides is considered 
cheating! 

Each new line of the maze is dependent 
on the previous line, but no two runs will 
be the same. 

Variables: W 32 characters of line 

Program description: 

150 - 240 Creation of first line 

340 - 470 Creation of following lines 
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MAZES 

100 dim w(32) 

110 PRINT 

120 PRINT "it/s AMAZING" 

130 PRINT 
MO LET w(l) = 2 
150 let w(32) = 130 
160 FOR I = 2 TO 31 
170 LET w(i) = 3 
180 NEXT I 

190 LET X = RND (20) 

200 LET w(x) = 2 
210 let w(x + 6) = 130 
220 FOR i = 2 TO 5 
230 LET W(x + i) = 0 
240 NEXT I 
300 FOR L - 1 TO 15 
310 FOR I = 1 TO 32 
320 PRINT CHR$(w(i)); 

330 IF I = 1 OR I = 32 THEN GO TO 500 
340 IF w(l) < 3 THEN GO TO 450 
350 IF w(l) > 3 THEN GO TO 400 
360 LET X = RND (8) 

370 IF V < 3 THEN LET W(l) = 2 
380 IF X = 8 THEN LET w(l) = 7 
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390 go to 500 

TO LET w(l) = 1 + RND (2) 

TO go to 500 
TO LET X = RND (5) 

TO LET w(l) = 1 + X / 2 
TO IF X = 1 THEN LET W(l) = 7 
500 NEXT I 
510 NEXT L 
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Noughts /Wd Crosses 

The Computer challenges the world: 

Noughts and Crosses! (If you look at the 
program listing, there is only provision 
for the ZX 80 to win or for a draw.) 
Admittedly the computer always starts first. 

This home ground advantage means that 
the program is always on the attack. The 
logic of the program may he difficult to 
follow from the listing but it is based 
on very simple rules. 

Lines 110 - 180 are a 'force-feed' to 
generate the grid numbering system. 


Variables: 


A 

M 

P 

R 

E 


Grid 

Move 

Previous move 
Reply 

Denotes whether player' 
first move was even. 


s 


2k 



Noughts and Crosses 

100 dim a(9) 

110 FOR J = 0 TO 2 
120 FOR I = 1 TO 3 

130 LET a(i + 3 * j) = 28 + i + 9 * j + 
2 * i * (j > 1) 

190 NEXT I 
150 NEXT J 
160 LET a(9) = 36 
170 LET a(5) = 61 
180 LET a(6) = 32 
190 go to 900 
200 FOR I = 1 TO 9 

210 IF a(i) = M + 28 THEN LET a(0 = V 

220 NEXT I 

230 for i = 0 to 2 

290 FOR J = 1 TO 3 

250 PRINT CHR$ (a(j + 3 * i));" a "j 

260 NEXT J 

270 PRINT 

280 PRINT 

290 NEXT I 

300 PRINT 

310 RETURN 

900 LET A = 0 
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410 

LET E = 0 



420 

PRINT "i WENT FIRST" 



430 

GO SUB 230 



TO 

PRINT "ENTER MOVE" 



450 

INPUT R 



460 

CLS 



470 

IF R = 2 * (R / 2) THEN LET E = 

-1 

480 

LET M = R 



490 

LET V = 28 



500 

GO SUB 200 



510 

LET P = R 



520 

FOR T = 1 TO 4 



530 

PRINT "I MOVED" 



540 

LET V = 61 



550 

LET A = A + 1 



560 

ift = 1orr = p + 4 

OR R = P ■ 

-4 


THEN GO TO 620 



570 

LET P = P + 4 



580 

IF P > 8 THEN LET P = 

P-8 


590 

LET M = P 



600 

GO SUB 200 



610 

GO TO 790 



620 

IF A = 3 AND E THEN LET A = 7 


630 

IF A = 4 THEN LET A = 

6 


640 

LET P = P + A 
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650 IF P > 8 THEN LET P = P “ 8 

660 LET M = P 

670 go sub 200 

680 IF A = 7 THEN GO TO 790 

690 IF T = 4 THEN GO TO 770 

700 PRINT "YOUR move" 

710 INPUT R 
720 cls 
730 LET M = R 
740 LET V = 28 
750 go sub 200 
760 NEXT T 
770 PRINT "draw" 

780 STOP 

790 print "zx-80 wins" 


27 



Dr. ZX-80 

A computer analyst - and like some of 
his human counterparts, this one doesn't 
listen to a- word you say. 

The result can be quite amusing. 

This program demonstrates how efficiently 
space can be organised, and a conversation 
generated that would probably otherwise 
strain the ZX 80 memory. 

A$ contains all the words to be used, 
and once in the memory there is no need 
to also keep it in the program listing. 

Each word is assigned a number (the 
number of bytes from the start of A$). 

It is therefore essential that A$ should 
be the first variable saved in the RUN, 
so that we can know where to PEEK. 

This program can be SAVEd as with a 
normal program. Just remember not to press 
RUN, but to use GO TO 120 instead. 
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Dr, ZX-80 

100 LET A$ = "A ACCEPTABLE AGAIN BYEBYE CO 
ME DID DO ENOUGH FEEL FIND FOR FRIENDS 
HELUO HERE HOW I IS l/M LIKE NAME NOR 
MAL REASONABLE SAY THAT/S THERAPIST 7H 
ERE THINK THIS TO TODAY WAS WAY WHAT W 
HEN WHY WOULD YOU YOUR " 

110 DIM P (90) 

120 LET s = PEEK (16392) + 256 * peek (163 
93) 

200 for i = 0 to 90 
210 PRINT I, 

220 INPUT B 
230 LET p(l) = B 

2W PRINT p(l) 

250 IF B = 0 THEN CLS 
260 NEXT I 

R*U*N 

ENTER FOLLOWING VALUES: 

68,191,88,199,13L 175,85,199,97, 0 
175,32,195,120,199,97,167, M, 0 
79,36,195,46,161,0 
36,195,147,153,85,109,0 
185,36,195,147,195,46,153,171,0 
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36,199,60,51,153,3,0 
36,195,27,79,158,51,60,0 
36,195, 147, 153,85,102,0 
36,199,60,51,153,3,0 
83,147,124,39,56,161,180,189,195,92,158, 
27,74,14,0 
124,109,20,0 


CHECK THAT TABLE HAS BEEN ENTERED CORRECTLY 
BY TYPING ON EDIT LINE (AFTER R*U*il ABOVE 
BUT BEFORE ALTERING PROGRAM): 

PRINT CHR$ (PEEK (S + 1) ) - RESULT SHOULD 
BE 'A' 

PRINT CHR$ (PEEK (s + 199) ) - RESULT SHOULD 
BE V 

Note : I strongly reowend that you SAVE 

THE PARTIAL PROGRAM AT THIS STAGE - IT WILL 
SAVE YOU A LOT OF TEDIOUS RETYPING IF YOU 
SHOULD LOSE THE PROGRAM SOMETIME AFTER THIS. 
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DELETE LINES 100 AND 110 AND REPLACE LINES 


200 

ONWARDS WITH FOLLOWING: 

200 

FOR I = 0 TO 88 


210 

LET J = - 1 


220 

LET J = J + 1 


230 

IF P(l) = 0 THEN GO 

to 270 

240 

PRINT CHR$ (PEEK (s 

+ p(l) + J»; 

250 

IF PEEK (S + P(l) + 

j) > 0 THEN GO TO 


220 


260 

IF P(l) > 0 THEN GO 

TO 300 

270 

PRINT "?" 


280 

INPUT B$ 


290 

CLS 


300 

NEXT I 



Important note: 

To run this program, do not press R*U*N 

AS THIS WILL CLEAR THE VARIABLES. 

Use G*0 T*0 1*2*0, 
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Nim 

NIM - the wonderful match game 
popularised by the movie 'Last Year at 
Marienbad'. 

The object is take matches away in turn, 
but any player can remove matches from only 
one row at a time. From 1 to the number of 
matches in the row can be removed. 

Rules vary, but the version here is that 
the player to take the last match wins. 

The mathematical formula for winning is 
based on binary numbers: convert each row 
to binary, and add the rows in decimal 
fashion: e.g. 

7 matches = 111 

2 0 10 

1 0 0 1 

1 2 2 

A winning position is obtained if you 
can leave an even total in each column - 
e.g. removing 1* from row 1 in this case. 

The notation used in this program would be 
lU (ie. Row 1, 4 matches). 


32 



Nim 


100 

DIM T(3) 





no 

DIM N(3) 





120 

DIM X(3) 





130 

LET N(l) 

= 7 




m 

LET N(2) 

= 5 




150 

LET N(3) 

= 3 




160 

GO TO 500 




200 

FOR R = 

1 TO 3 




210 

FOR M “ . 

1 TO N(r) 




220 

IF N(R) : 

= 0 THEN GO TO 250 


230 

PRINT "J 

a"; 




240 

NEXT M 





250 

PRINT 





260 

PRINT 





270 

NEXT R 





280 

RETURN 





300 

FOR S = 

0 to 3 




310 

LET T(s) 

= 0 




'320 

NEXT S 





330 

FOR S = 

1 TO 3 




m 

LET T(l) 

= t(1) + 

(x(s) 

AND 

*0/4 

350 

LET T(2) 

= t(2) + 

(x(s) 

AND 

2)/2 

360 

LET T(3) 

= t(3) + 

(x(s) 

AND 

1) 

370 

NEXT S 
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380 FOR s - 1 TO 3 

390 IF T(s) = 2 THEN LET T(s) = 0 

TO LET T(0) = T(0) + T(S) 

TO NEXT S 
TO RETURN 

500 GO SUB 200 

510 PRINT "enter row and how many" 

520 INPUT Y 

530 IF Y = 0 THEN GO TO 900 

5Wify(0ory>33 then go to 520 

550 LET M = Y / 10 

560lety = y-10*m 

570 IF Y > N(m) THEN GO TO 520 

580 LET N(m) = N(m) - Y 

590 cls 

600 go sub 200 
610 FOR R = 1 TO 3 
620 LET x(r) = n(r) 

630 NEXT R 
6^0 go sub 300 

650 IF t( 0) = 0 THEN GO TO 670 
660 PRINT "i BET I WILL WIN" 

670 PRINT "press n/l" 

680 INPUT x$ 

690 IF t(0) > 0 THEN GO TO 750 

3b 



700 FOR R = 1 TO 3 

710 LET M = n(r) - 1 

720 IF N(r) > 0 THEN GO TO 820 

730 NEXT R 

740 go to 900 

750 FOR R = 1 TO 3 

760 FOR M = 0 TO n(r) 

770 LET x(r) = M 
780 go sub 300 

790 IF T(0) = 0 THEN go to 820 
800 NEXT M 
810 NEXT R 

820 IF R > 3 THEN GO TO 900 
830 LET N(r) = M 

840 if n(1) + n(2) + n(3) = 0 then go to 900 

850 GO TO 500 

900 PRINT "who won?" 
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Blackjack 

This is the first of several card games 
in this book. 

Each one uses a different approach to 
storing and shuffling the cards. The 
method used in this program is to store 
all 52 cards in a REM statement at the 
beginning of the program. 

(Please note that T iB used to represent 
10, as this enables a single letter to be 
used.) 

Lines 310 - 360 are used to 'shuffle* 
the pack by exchanging the nth card with 
a randomly selected one. After each game 
you will be able to see the shuffled pack 
in line 100 ! 

This method has the advantage of being 
compact and knowing that the distribution 
of cards is not skewed. 

This program is very full, and although 
the computer keeps track of the total in 
each player's hand, there is not enough 
room to display this total. 
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Nonetheless, it still works very well 
within IK, and should provide many hours of 
entertainment. 

For those with additional memory, the 
following lines will display the total in 
each hand: 

280 PRINT "TOTAL:" 

290 PRINT N(2),,N(3) 

The comments have been kept terse for the 
same reason, and additional memory could 
make the program friendlier. 


Variables: 


N(0),N(1) 

N(2),N(3) 

A 

M 

B 

W 


No. of cards 
Value of hand 
No. of aces 
Money 
Bet 

Win/lose factor 


Program description: 

150 - 180 Calculates value of hand 

200 - 300 Print routine 

310 - 360 Shuffling 

630 - 650 Value of aces held if over 21 
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Blackjack 

100 rem 23456785rjQKA23^56789rjQKA23456789 
tjqka23456789tjqka 
110 dim n(3) 

120 L£T s = 16427 
130 LET M = 100 
140 go to 310 

150 LET X = PEEK (s + 6 * I + N(l)) - 28 
160 LET N(I + 2) = N(I + 2) - 10 * (X > 10) 
- x * (x < 10) - 11 * (x - 10) 

170 LET A = A “ (x = 10) 

180 RETURN 

200 PRINT "yours", /'zx80' ; 

210 FOR K - 0 TO 1 

220 forl = 6*kto6*k + n(k) 

230 LET X = PEEK (s + L) 

240 print chr$ <x)j" 

250 NEXT L 
260 PRINT ,, 

270 NEXT K 
300 RETURN 
310 FOR I = 0 TO 51 
320 LET J - RND (52) - 1 
330 LET X = PEEK (s + j) 

340 POKE S + J, PEEK (s + i) 
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350 POKE S + \j X 
360 NEXT I 
370 FOR I = 0 TO 1 
380 LET n(i) = 0 
390 let n(i + 2) - 0 
900 LET A = 0 
910 go sub 150 
920 NEXT I 

930 print "bet: you have £";m 
990 INPUT B 
950 cls 

500 FOR I = 0 TO 1 
510 LET W = 2 * I - 1 
520 L£T A = n(i + 2) / 10 
530 go sub 200 

590 IF I = 0 THEN PRINT "H OR S?" 

550 IF I = 1 THEN PRINT Vl" 

560 LET 1$ = "s" 

570 INPUT 1$ 

580 cls 

590 IF CODE (l$) = 56 THEN GO TO 700 
600 LET N(l) = N(l) + 1 
610 go sub 150 

620 if n(i + 2) { 22 then go to 660 
630 IF A = 0 THEN GO TO 800 
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640 LET A = A - 1 
650 let n(i + 2) = n(i + 2) - 10 
660 IF N(l) = 4 THEN GO TO 700 
670 IF I = 0 OR N(l + 2) < 17 THEN GO TO 
530 

700 NEXT I 
750 go sub 200 
760 LET w = - 1 

770 if (n(0) = 4 and n(1) < 4) or n(2) ) 
n(3) then let w = 1 

780 IF N(2) = 21 AND N(0) = 1 THEN LET W 
= 2 

800letm = m + w*b 

810 IF M < 1 THEN STOP 

820 go to 310 


I 
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Bubble Sort 

This is a useful subroutine, more than 
a program, to order the elements in an array. 

It assumes that there has been previously 
defined an array P(l), with N elements. 

The method is called a Bubble Sort 
because the lighter elements 'bubble' up 
to the top until each element is in its 
place. 

For an example of this subroutine in 
a program, see BRIDGE BIDDING. 
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Bubble sort 
100 for j = 1 to n - 1 
110 LET K = J + 1 
120 FOR I = K TO N 
130letl = n + k-1 
W IF p(l) > p(j) THEN GO TO 180 
150 LET T = P(l) 

160 LET P(l) = p(j) 

170 LET p(j) = T 
180 NEXT I 
190 NEXT J 
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Line Renumber 

This is a useful routine to have, even 
though in its short form it takes up just 
over 100 bytes. 

Although it can be keyed in at any time, 
this is tedious and it is better to LOAD 
it into the memory before you key in any 
other program. Please note that you cannot 
LOAD it from tape once you already have 
a program in the memory. 

The program assumes that the first 
program line is already numbered 100 
and will not renumber it. 

Lines 9991 and 9992 tell you where 
GO SUBs and GO TOs are, but does not 
alter them. (This would not be possible with 
the versatile system the ZX 80 uses, in any 
case). 

These lines can easily be deleted if short 
of memory. 
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Line Renutcer 

9989 let l = 110 

9990 for n - 16425 to 17400 

9993 IF NOT PEEK (n) = 118 THEN GO TO 9999 

9994 IF PEEK (N + 1) ) 38 THEN STOP 

9995 print 256 * peek (n + 1) + peek (n + 2), 

9996 PRINT L 

9997 LET N = N + 2 

9998 LET L = L + 10 

9999 next n 

> R*U*N 9989 no see that the program has 

BEEN ENTERED CORRECTLY. 

SCREEN SHOULD SHOW OLD LINE NUMBER AND 
REPLACEMENT LINE NUMBER 

9991 IF PEEK (N) = 251 THEN PRINT L - 10, 
CHR$ (251) 

• 9992 if peek (n) = 236 then print l - 10, 
chr$ (236) 

9995 poke n + 1, l / 256 

9996 poke n + 2, l and 255 
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Draw A Picture 


This program will not teach you how 
to be a Van Gogh, but should let you 
play with shapes and the graphics 
characters so that your programs can 
benefit from better visual displays. 

The next two pages illustrate some of 
the graphics characters with their code 
numbers. 

Enter code 0 at any location to 'rub it 
out'. 

Enter 0 as the coordinate to finish. 



Available from toe keyboard: 

2 E 3 

H 

' E 

5 

a 

6 C 

7 

□ 

8 SB 

9 

■ 

10 H 

11 

v m 

Not available from toe 

keyboard: 

128 m 

129 

a 

130 n 

131 

H 
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132 



m 



136 




Other useful 'graphic' symbols: 

6 £ 18 - 19 + 

20 * 23 > 24 < 





Draw A Picture 

100 PRINT 
PRINT 

PRINT "size pad (3-7)?" 

INPUT N 

ifn<3orn>7 then go to 120 
DIM a(n * N - 1) 

CLS 

FOR K - 1 TO N 
LET J = N + 1 - K 
PRINT J, 

FOR I = 1 TO N 

PRINT CHR$ (A(J - N - 1 + N * I» 
NEXT I 
PRINT 
NEXT K 
PRINT 
PRINT , 

FOR I = 1 TO N 
PRINT I; 

NEXT I 
PRINT 

PRINT "ENTER COORD" 

INPUT X 
420 IF X = 0 THEN GO TO 500 
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430 PRINT X 
440 LET J = X / 10 
450 LET I = x - 10 * J 
460 PRINT "enter char code" 

470 INPUT X 

480 LET A(J - N - 1 + N * i) = X 

490 go to 200 

500 PRINT "codes used:" 

510 FOR K = 1 TO N 
520 letj = n + 1- k 
530 PRINT "LINE:"jJ, 

540 FOR I = 1 TO N 

550 PRINT a(j - N - 1 + N * l)j" "j 

560 NEXT I 

570 PRINT 

580 NEXT K 



Machine Code 

This program defines a reserved area 
of 20 bytes by defining the variable A(10) 
as the very first statement of the program, 
and then allows you to load machine code 
instructions in hexadecimal. 

The scope of this book does not allow 
a full discussion of the ZX 80 machine 
code and how to program in machine code. 

A full discussion and sample programs 
is contained in our book ZX 80 MACHINE 

Language Programing- 

A sample program which may prove useful 
is given here: 

OR A B7 

LD HL,(l6400) 2A 10 UO 

SBC HL, SP ED 72 

RET C9 

The first line (OR A) is for internal 
housekeeping and clears the carry flag. 
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The next line (LD HL,(l6U00)) loads the 
HL counter - 16 bits - with the contents 
of memory locations 16U00 and I6I4OI - 
2A is the general instruction and the next 
two bytes define the location 16400. Note 
that it is least significant byte first. 

SBC HL,SP subtracts the contents of SP 
from the contents of HL. 

Finally as with all subroutines, RET 
is the return from the USR call. 

As locations 16400 and 16U01 contain the 
address of the end of the visual display and 
SP is the address of the stack pointer, 
the difference is the amount of memory left. 

This machine code routine can be used 
within a program, to prevent the system 
crashing - eg IF USR(S) < 20 THEN GO TO .. 
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Machine Code 

100 DIM a(10) 

110 LET s = PEEK (16392) + 256 * peek (163 
93) + 2 
120 cls 

130 print "locationV'contents" 

MO FOR I = 0 TO 20 
150 PRINT S + Ijj 
160 INPUT A$ 

170 IF A$ = "" THEN GO TO 200 
180 LET V = 16 * CODE (A$) + CODE (TL$ (A$)) 
- 476 

190 POKE S + \, V 
200 UET V = PEEK (s + i) 

210 PRINT CHR$(v / 16 + 28);CHR$((v AND 15) 
+ 28) 

220 IF V = 201 THEN GO TO 240 
230 NEXT I 
240 PRINT 

250 PRINT "any changes?" 

260 INPUT A$ 

270 IF CODE (A$) = 62 THEN GO TO 120 
280 PRINT "RESULT OF USR IS";USR(s) 
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> R*U*N 

ENTER FOLLOWING MACHINE CODE VALUES 

b7, 2a, 10, Wj ed, 72, c9 


RESULT OF USR WILL BE - MEMORY REMAINING. 
YOU MAY FIND IT INTERESTING TO ADD THE 
FOLLOWING FOUR LINES: 

290 PRINT "CONTENTS OF A(l) ARE:" 

300 FOR I = 0 TO 3 
310 PRINT a(i), 

320 NEXT I 
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Memory left 

For those of you who worked through 
the previous program, you will have realised 
that a machine code program was stored in 
an ordinary variable A, and that the 
machine code was exactly the same as 
the variable A storing numbers! 

This means that if you know the right 
nianbers you can have a machine code routine 
without the hexadecimal coding, etc. 

After you have RUN the 8 line program, 
most of the information is stored in the 
memory and you can delete 5 of those lines! 

If you are desperately short of memory 
you can also delete line 80: Use GO TO 30, 
then enter on the edit line PRINT USR(S). 

The correct value of S will still be in memory. 
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Memory Left 

20 dim a(3) 

30 let s = PEEK (16392) + 256 * peek (163 
93) + 2 

40 let a(0) = 10935 
50 LET a(1) = 16400 
60 LET a(2) = 29421 
70 LET a(3) = 201 
80 PRIME USR(S) 

90 stop 

> R*U*N 

AFTER THE FIRST RUN, AS LONG AS YOU DO 

not CLEAR or RUN then lines 20,40,50,60 
AND 70 CAN BE DELETED. 

TO OBTAIN MEMORY LEFT AFTER THESE LINES 
HAVE BEEN DELETED USE G*0 T*0 30. 
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Day of the Week 

The computer shows off! 

Give it your birth date, and the 
computer will tell you the day of the 
week when you were born. 

As long as you don't strain its 
credulity too much (the ZX 80 finds it 
difficult to believe that there are people 
who are over 280 years old!), it will 
do it again and again. 
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Day of the Week 

100 PRINT "^1 CALCULATE THE DAY YOU WERE 
BORN" 

110 LET D$ = " AAA SUTf10NTUEWEDTHUFR I SAT" 
120 PRINT "PLEASE ENTER YOUR NAME" 

130 INPUT A$ 

MO PRINT "HELLO/';A$ 

150 PRINT "ENTER DATE OF BIRTH: DAY", 

160 INPUT D 

170 IF D < 1 OR D > 31 THEN GO TO 160 
180 PRINT D/MONTH", 

190 INPUT M 
200 PRINT M/YEAR" 

210 INPUT Y 

220 IF Y < 1700 THEN PRINT A$," IS TOO OLD 
FOR ME" 

230 IF Y ( 1700 THEN GO TO TO 

2^ CLS 

250 LET K = 0 

260 ifm = 1orm = 2 then let k = 1 
270 LET L = Y - K 
280 LET O = M + 12 * K 
290 let p = l / 100 

300 LET z = (13 * (o + D) / 5 + (5 * l) 

/Zl-p + p/ H + D- l 
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310 LET z = z - 7 * (z / 7) + 1 
320 FOR I = 1 TO z * 3 
330 LET D$ = TL$ (d$) 

340 NEXT I 

400 PRINT A$j" WAS BORN ON ";CHR$( CODE ( 
D$)); 

410 LET D$ = TL$ (D$)) 

420 PRINT CHR$ (CODE (D$));CHR$ (CODE ( TL$ 
(d$))) 

440 PRINT "anyone else?" 

450 INPUT A$ 

460 if code (a$) = 62 then go to 110 
470 PRINT "zx80 SAYS byebye" 
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Chinese Remainder 

The computer as mind reader! 

Every computer has one of these, 
and the ZX 80 is no exception. 

Think of a number, divide by 5» tell 
me the remainder, divide the original number 
by 7, tell me the remainder, divide 
your original number by 9 and tell me 
the remainder - I'll let the ZX 80 
tell you what number you thought of. 
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Chinese Remainder 

100 dim r(3) 

110 PRINT "THINK OF A NUMBER BETWEEN 1 AND 

316" 

120 PRINT "PRESS N/L WHEN READY" 

130 INPUT A$ 

200 LET A = 3 
210 FOR I = 1 TO 3 
220 LET A = A + 2 

230 PRINT "NOW DIVIDE YOUR ORIGINAL NUMBER 

by a ";a 

2*10 PRINT "PLEASE ENTER REMAINDER" 

250 INPUT r(i) 

260 PRINT r(i) 

270 NEXT I 

300 LET A = 126 * R(l) + 225 * r(2) + 280 
* r(3) 

310 LET A = A - 315 * (A / 315) 

320 print "your nlmber was "ja 
330 print "another?" 

3*0 input a$ 

350 cls 

360 if code (a$) = 62 then go to 100 
370 print "byebye" 
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Simple Simon 

This is the game of Simple Simon with 
some nice graphics touches only the ZX 80 
is capable of easily. 

The computer generates a random sequence 
of letters that you have to copy. 

The nice part is that the letters are 
displayed in HUGE 7”line deep graphics. 

The key to this is that the code which 
defines each letter for the ZX 80 can be 
peeked in ROM at location 3584 onwards. 
Each letter is made up of 64 dots and it 
takes 8 bytes to define each letter. 

Lines 230 - 300 PEEK and extract the 
64 pieces of information. 



Simple Simon 

100 dim a(30) 

HO let j = - 1 
120 RANDOMISE 
130 dim p(7) 

140 FOR I = 0 TO 7 

150 LET p(i) = 2 ** (7- I) 

160 NEXT I 

200 LET X = RND (26) + 37 
210 cls 

220 PRINT "next char is" 

230 FOR L = 0 TO 7 

240 LET V = PEEK (3584 + L + 8 * x) 

250 FOR K = 0 TO 7 

260 LET G = (v AND p(k)) ) 0 

270 PRINT CHR$ (- 128 * G)j 

280 NEXT K 

290 PRINT 

300 NEXT L 

400 IF X = 15 THEN GO TO 700 
410 LET J = J + 1 
420 IF J = 31 THEN GO TO 800 
430 LET a(j) = X 

440 PRINT "PRINT ENTIRE SEQUENCE" 
450 INPUT A$ 
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TO PRINT A$ 

470 FOR I “ 0 TO J 
TO LET X = CODE (A$) 

TO IF NOT A(l) = X THEN GO TO 600 
500 LET A$ “ TL$ (A$) 

510 NEXT I 

520 GO TO 200 

600 LET X = 15 

610 go to 230 

700 PRINT "sorry it was:" 

710 for i = 0 to j 
720 PRINT CHR$ (a(i)); 

730 NEXT I 
740 stop 

800 PRINT "i GIVE UP" 



Hangman 


This is a 2 or more 
player game: one person 
thinks of a secret word 
and the other has to guess 
the letters that make 
up the word. 

After 10 wrong letter guesses, this 
nice person here is hung, and the 
game is finished. 

Important note: as the beginning of 
the program is used to define the graphics 




Hangman 

10 print 
20 RETURN 
30 PRINT 
40 RETURN 

50 PRINT " a aa C" 

60 RETURN 

70 PRINT JO" 

80 RETURN 

90 print n chr$ (135); chr$ (135); 

"tr 

100 return 

110 PRINT " A /; CHR$ (134); 

120 RETURN 

130 PRINT CHR$ (134); "EP 
140 RETURN 

150 PRINT * A /; chr$ (130); chr$ (128) 
160 RETURN 

170 PRINT " CHR$ (132); 

A A 

180 RETURN 

190 print chr$ (130); "D" 

200 return 

210 FOR L - 1 TO G 

220 IF G = 0 THEN GO TO 250 

230 go sub 20 * l - 10 
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240 NEXT L 
250 PRINT 
260 PRINT 

270 IF G = 10 THEN GO TO 290 

280 go to 500 

290 PRINT "TOO BAD" 

300 PRINT "enter new word" 

310 INPUT x$ 

320 LET w = 1 
330 LET A$ = X$ 

340 FOR L = 1 TO 20 
350 LET A$ = TL$ (A$) 

360 IF A$ = "" THEN GO TO 390 
370 LET w = w + 1 
380 NEXT L 
390 DIM a(w) 

400 FOR L = 1 TO W 
410 LET A(L) = 0 
420 NEXT L 

430 PRINT "LETTERS="jW 

440 LET G = 0 

500 PRINT "INPUT GUESS" 

510 INPUT A$ 

520 as 

530 IF A$ = "" THEN GO TO 999 
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TO LET B = CODE (A$) 

550 LET A$ = X$ 

560 LET C = 0 
570 FOR L = 1 TO W 

580 IF B = CODE (A$) TEEN LET A(l) = B 
590 IF A(L) = B THEN LET C = 1 
600 LET A$ = TL$ (A$) 

610 NEXT L 

620 IF C = 0 THEN LET G = G + 1 

630 LET N = W 

TO FOR L = 1 TO W 

650 IF A(L) = 0 THEN PRINT 

660 IF a(l) = 0 THEN GO TO 690 

670 LET N = N - 1 

680 PRINT CHR$ (a(l)); 

690 NEXT L 
700 PRINT 
710 PRINT 

720 IF NOT N = 0 THEN GO TO 210 
730 PRINT "brilliant" 

740 go to 300 

999 PRINT "THANKS FOR THE GAME" 
Important note: 

To RUN THIS PROGRAM, USE R*U*N 3*0*0, 
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Maths Drill 

This program is designed to encourage 
the use of Computer Aided Learning for 
younger children. 

The test itself is pretty basic - two 
numbers between 1 and U 9 are randomly 
chosen and half the time you have to add 
them and the other half subtract them. 

The encouragement comes from the oversized 
display of the numbers - see the notes 
accompanying SIMPLE SIMON for program 
details. 

Because the oversized display uses so 
much memory, the program is very full, 
and consequently not as conversational as 
one might have liked. 
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M/vms Drill 

100 RANDOMISE 
HO DIM C(3) 

120 DIM p(7) 

130 FOR J = 0 TO 7 
MO LET p(j) = 2 ** (7 - J) 

150 NEXT J 
160 GO TO TO 

200 IF S = - 1 THEN LET c(l) = 18 

210 LET c(2) = X / 10 

220 LET c(3) = x - 10 * c(2) + 28 

230 IF c(2) > 0 THEN LET c(2) = c(2) + 28 

240 FOR L = 0 TO 6 

250 FOR I = 1 TO 3 

260 LET V = PEEK (3584 + L + 8 * c( I)) 

270 for j = 0 to 7 

280 LET G = (v AND p(j)) > 0 

290 PRINT CHR$ (- 128 * G)j 

300 NEXT J 

310 NEXT I 

320 PRINT 

330 NEXT L 

340 PRINT 

350 RETURN 

TO LET K = 0 
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410 LET C(l) = 0 
420 LET s = 1 
430 LET A = RND (49) 

440 LET X = A 

450 go sub 200 

460 LET c(l) = 19 

470 L£T S = 2 * RND (2) - 3 

480 LET B = RND (49) 

490 LET X = B 
500 go sub 200 
600 INPUT c 

610 IF C = A + S * B THEN GO TO 700 
620 LET K = K + 1 
630 IF K ) 2 THEN GO TO 660 
640 PRINT "try again" 

650 go to 600 

660 PRINT "the ANSWER WAS A + S * B 
670 stop 

700 PRINT "that/s right" 
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Capitals of the World 

This program illustrates another aspect 
of Computer Aided Learning. 

Ten questions are selected in a random 
order - in this case world capitals - and 
the answers scored. 

Note that both the question and answer 
are stored in the one variable A$, and 
therefore very little has to be kept in 
memory. 

The'program format is adaptable to any 
subject, from French vocabulary to the 
chemical table of elements. 
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Capitals of the World 

100 dim oQO) 

110 LET C - 0 
120 LET Q = 0 

130 PRINT "THIS IS A TEST OF CAPITALS" 
140 PRINT "WHAT IS THE CAPITAL OF." 
150 LET X = RND (10) 

160 LET A = 10 

170 IF Q(x) < 0 THEN GO TO 150 
180 LET Q(x) = - 1 
190 go sub 500 + 20 * x 
200 FOR I - 1 TO 30 
210 LET X = CODE (A$) 

220 PRINT CHR$ (x)j 
230 LET A$ = TL$ (A$) 

240 IF X = 15 THEN GO TO 300 
250 NEXT I 
300 INPUT B$ 

310 IF NOT A$ = B$ THEN GO TO 400 

320 LET C = C + A 

330 LET Q = Q + 1 

340 IF Q = 10 THEN GO TO 500 

350 IF A = 0 THEN GO TO 140 

360 cls 

370 go to 140 
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TO PRINT "TRY AGAIN" 

410 INPUT B$ 

420 LET A = 5 

430 IF B$ = A$ THEN GO TO 320 
“440 PRINT "IT IS/;A$ 

450 LET A = 0 
460 go to 320 

500 PRINT "you GOT a ";C;" a percent right" 
520 let a$ = "czechosljovakia?prague" 
530 return 

540 LET A$ = "turkey?istanbul" 

550 RETURN 

560 LET A$ = "the usaTwashington" 

570 RETURN 

580 LET A$ = "holland?amsterdam" 

590 return 

600 LET A$ = "australIa?canberra" 

610 return 

620 LET A$ = "japanTtokyo" 

630 RETURN 

640 LET A$ = "lNDIA?NEW DEHLl" 

650 RETURN 

660 LET A$ ~ "poland?Warsaw" 

670 RETURN 

680 LET A$ = "sweden?stockholm" 


73 



690 RETURN 

700 LET A$ - "PORTUGAL?LISBON" 
710 RETURN 



Life 

This is a very small and necessarily 
limited version of the famous LIFE program, 
but despite its limitations it is still 
very interesting. 

The program simulates a culture - 
the survival of each cell is dependent on 
how many neighbours it has. 

Too many neighbours would imply a lack of 
food and the cell dies; too few neighbours 
and the cell is unable to reproduce or obtain 
support. 

The rules are that a new cell is born if 
a space has exactly 3 neighbours, and 
existing cells die unless they have only 
2 or 3 neighbours. 

The initial population is randomly generated. 
The program is quite slow, so please be 
patient. 
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Life 

100 dim a(63) 

110 FOR I = 1 TO 63 

120 LET a(i) = 128 * (rnd (2) - 1) 

130 NEXT I 

200 FOR L = 0 TO 8 

210 FOR J = 1 TO 7 

220 LET I = J + 7 * L 

230 PRINT CHR$ (A(l))j 

240 NEXT J 

250 PRINT 

260 NEXT L 

270 PRINT "press 1" 

280 INPUT A 
290 cls 

300 for i = 9 to 55 
310 LET X = 0 

320 IF ((i + 1) AND 7) = 0 THEN GO TO 350 
330 L£T x = (a(i + 1) > 127) 

340 IF (( I - 1) AND 7) = 0 THEN GO TO 360 
350 LET x = x + (a(i - 1) ) 127) 

360 FOR j = 7 TO 9 
370 FOR R = - 1 TO 1 
380 IF R = 0 THEN GO TO 420 
390 LET K = I + R * J 
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400 IF (K AND 7) = 0 THEN GO TO 420 
410 LET X = X + (A(K) > 127) 

420 NEXT R 
430 NEXT J 

440 LET a(i) = a(i) - X 

450 NEXT I 

460 for i = 9 to 55 

470 if a(i) = 3 or a(i) = 130 or a(i) = 131 
THEN GO TO 500 
480 LET A(l) = 0 
490 go to 510 
500 let a(i) = 128 
510 NEXT I 
520 go to 200 
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Prime Numbers 

The program generates all the prime 
numbers from 2 to 300. 

Line 150 might appear odd as it 
eliminates the search for a prime beyond 
the square root of X - this is because 
if a larger prime exists, the smaller 
factor would already have been found. 

Despite this fairly limited search, 
the program takes quite a while. 
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Prime Numbers 

100 dim a(75) 

110 LET R = 1 
120 LET A(l) = 2 
130 for x = 3 to 300 

W FOR Y = 1 TO R 

150 IF X / a(r) > A(r) THEN GO TO 180 

160 IF X = (x / a(y)) * a(y) THEN GO TO 21D 

170 NEXT Y 

180 LET R = R + 1 

190 LET A(R) = X 

200 PRINT X, 

210 LET X = X + 1 
220 NEXT X 
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Simultaneous Equations 

This program solves simultaneous linear 
equations of the type 
ax + by + c = 0 
dx + ey + f = 0 

The nice thing about working with 
integer arithmetic is that all solutions 
are either integer or integer fractions. 

Lines 500 - 550 calculate the Greatest 
Common Denominator of any two numbers. 

Variables: X(l) Equation constants 
A(I) Solutions 
D Determinant 
GOD Greatest Common Denominator 
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Simultaneous Equations 

100 dim x(6) 

110 dim a(2) 

120 PRINT "solutions to 2 equations:" 

130 PRINT "a * X + B * Y + C = 0" 

A A AAA 

140 PRINT 

150 PRINT "ENTER data" 

160 FOR I = 1 TO 6 

170 PRINT CHR$ (37 + I - ((I - 1) / 3) # 3 )j 
180 INPUT x(l) 

190 PRINT x(l) 

200 NEXT I 

300 LET D = x(l) * x(5) - x(2) * x(4) 

310 IF D = 0 THEN GO TO 900 

320 LET a( 1) = x(3) * x(5) - x(2) * x(6) 

330 LET a( 2) = - x(3) * x(4) + x(l) * x(6) 
340 PRINT 

350 PRINT "solutions are" 

360 LET D = “ D 
370 LET S = D / ABS (d) 

400 FOR I = 1 TO 2 
410 LET B = ABS (d) 

420 LET A “ ABS (A(l)) 

500 LET Q = A / B 
510 LET R = A - Q * B 
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520 

LET A = B 



530 

LET B = R 



540 

IF R > 0 THEN GO 

to 500 


550 

LET GCD - A 



600 

PRINT S * A(l) / 

GCD j 


610 

IF NOT D / GCD = 

S THEN 

PRINT 7" 


ABS (D / GCD) 



620 

PRINT , 



630 

NEXT I 



640 

STOP 



900 

PRINT DEGENERATE: NO 

SOLUTIONS - 
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Square Root 
T o 3 Decimal Puces 

This program calculates the square root 
of any number to three decimal places. 

Note the very simple iteration used 
in lines 200 - 240: it may be less 
efficient that the iterations given in 
texts, but it is sufficient and overcomes 
the major problem with the ZX 80 - 
overflow. 

The program also illustrates the use 
of variable names to make a listing more 
legible. 
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Square Root 
100 PRINT "INPUT NUMBER" 

110 INPUT A 
120 cls 

130 PRINT "SQUARE ROOT OF "jAj" IS" 

140 LET u = 174 
150 LET L = 0 
160 LET FRAC = 0 
170 LET DELTA = 0 
200 LET NEW = (U + L) / 2 
210 IF (NEW - 1) ** 2 < A AND (NEW + 1) ** 
2 ) A THEN GO TO 250 
220 IF NEW ** 2 > A THEN LET U = NEW 
230 IF NEW ** 2 ( A THEN LET L = NEW 
240 GO TO 200 

250 IF NEW ** 2 ) A THEN LET NEW = NEW - 1 
300 LET ERROR = 100 * (a - NEW ** 2) 

310 IF ERROR ( 2 THEN GO TO 470 

320 LET FRAC = (ERROR / NEW) / 2 

330 LET FSQ = FRAC ** 2 

340 LET ERROR = ERROR - 2 * NEW * FRAC 

350 IF ERROR > 0 THEN GO TO 390 

360 LET FRAC = FRAC - 1 

370 LET ERROR = 100 * (a - NEW ** 2) 

380 go to 330 
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390 LET ERROR = 10 * ERROR - FSQ / 10 
900 IF ERROR < 0 THEN GO TO 360 
910 LET DELTA = (ERROR / NEW) / 2 
920 LET EDASH = ERROR - (2 * FRAC * DELTA) 
/ 2 

930 IF EDASH > 0 THEN GO TO 960 
990 LET DELTA = DELTA - 1 
950 GO TO 920 

960 LET DELTA = (EDASH / NEW) / 2 
970 PRINT NEWj " "i FRAC;DELTA 
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Bridge Bidding 

This program will deal you a Bridge 
hand and asks what you would bid as 
an opening bid with this hand. Obviously 
the limitations of IK do not allow the 
program to go very far, but it is still 
very interesting. 

The cards are shuffled and dealt in the 
one operation (lines 120 - 170): one of 
52 cards is chosen at random and each 
fourth card is given to the player. 

A Bubble sort subroutine is used to 
order the 13 cards in the player's hand 
and it is displayed in suits. 

A simple algorithm is used to calculate 
the points value. 
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Bridge Bidding 

100 dim d(51) 

110 dim p(13) 

120 for i = 1 to 52 
130 LET C = RND (52) - 1 
190 IF d(c) < 0 THEN GO TO 130 
150 IF I = 9 * (I / 9) THEN LET P(l / *0 
C 

160 LET D(c) = - 1 

170 NEXT I 

200 FOR J = 1 TO 12 

210 LET K = J + 1 

220 FOR I = K TO 13 

230letl = 13+k-i 

2*10 IF p(l) ) p(j) THEN GO TO 280 

250 LET T = p(l) 

260 LET p(l) = p(j) 

270 LET p(j) = T 

280 NEXT I 

290 NEXT J 

300 LET V = 0 

310 LET C = - 1 

320 FOR I = 1 TO 13 

330 LET S = p(l) / 13 

3^40 LET p(l) = p(i) - 13 * s 
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350 IF S = C THEN LET M = M + 1 

360 IF S > C + 1 THEN LET V = V + 3 

370 IF S > C THEN LET M = 0 

380 IF M > 0 THEN GO TO 500 

390 LET C = S 
TO LET A$ = " A CDHS # ' 

TO PRINT 

TO FOR J = 1 TO S + 1 
TO LET A$ = TL$ (A$) 

TO NEXT J 

TO print chr$ ( code (A$))j".,"j 

TO LET V = V + 3 

500 IF p(l) > 8 THEN GO TO 530 

510 PRINT P(I) + 2;7 # J 

520 go to 600 

530 LET p(l) = p(l) - 8 

TO LET A$ = \ JQKA" 

550 FOR J = 1 TO p(i) 

560 LET A$ = TL$ (A$) 

570 NEXT J 

580 print chr$ (code (a$));","j 
590 LET V = V + p(i) 

GOO IF M < 3 THEN LET V = V - 1 

610 IF 10 * M ) T THEN LET T = 10 * M + S 

620 NEXT I 
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630 PRINT 
TO PRINT 
700 PRINT "BID?" 

710 INPUT A$ 

720 PRINT A$ 

730 PRINT 

7*0 print "vie suggest."; 

750 if v < 13 then print "pass" 
760 IF V < ]3 THEN GO TO 800 
770 IF V < 21 THEN PRINT "1"; 
780 IF V > 20 THEN PRINT "2"; 
790 PRINT "*IN LONGEST SUIT" 
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Pontoon 

This is the 2 player version of 
BLACKJACK, with some nice card display 
graphics. 

The program deals the cards, generated 
from a random number. This is equivalent to 
playing with a very large number of packs 
and the cards that fall do not have any 
influence on the distribution of the 
remaining cards. 

Note the possible expansion with 
additional memory to display both players' 
cards at the same time. 
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Pontoon 

100 dim n(2) 

110 dim v(9) 

120 randomise 

130 for i = 1 to 2 

140 LET n(i) = 1 

150 LET v(5 * I - 5) = rnd (13) 

160 next i 
170 LET I = 1 
200 LET P = I 
210 for l = 1 to 7 
220 for c = 1 to n(p) 

230letj = c- 6 + 5*p 
240ifl = 1orl = 7 then go to 420 
250 IF L = 4 THEN GO to 270 
260 go to 440 
270 PRINT "ja A ” } 

280 IF v(j) < 2 OR v(j) ) 10 THEN GO TO 330 
290 PRINT v(j); 

300 IF v(j) < 10 THEN PRINT " A "j 

310 PRINT W'j 

320 go to 450 

330 LET A$ = "*AJQK" 

340 LET M = v(j) 

350 IF M > 10 THEN LET M = M - 9 
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360 fork = 1tom-1 
370 LET A$ = TL$ (A$) 

380 NEXT K 

390 PRINT CHR$ ( CODE (A$)); 

400 PRINT " A 0") 

410 go to 450 

420 print 

430 go to 450 

440 PRINT " m W) 

450 NEXT c 
460 print 
470 NEXT L 
480 PRINT 
490 PRINT 

600 PRINT "PLAYER:";I;"-HIT OR STAY?" 
610 INPUT A$ 

620 cls 

630 IF CODE (A$) = 56 THEN GO TO 670 

640 LET n(i) = n(i) + 1 

650 LET v(n(i) - 6 + 5 * i) = RND (13) 

660 GO TO 200 

670 IF I = 2 THEN STOP 

680 LET I = I + 1 

690 go to 200 
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Note: 

In the IK version, there is insufficient 

MEMORY TO DISPLAY BOTH THE PLAYERS* CARDS 
AT THE SAME TIME, 

IF YOU HAVE ADDITIONAL MEMORY THEN 
REPLACE LINE 200 WITH 
200 FOR P = 1 TO 2 

AND ADD THE FOLLOWING LINE: 

500 NEXT P 

AS WELL, LINE 620 (CLS) SHOULD BE 
RENUMBERED 645, 
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Cho^p 

This is a game for 2 or more players. 
The game first appeared in Scientific 
American in January 1973. 

The object is for each player to take 
a 'bite' out of a grid, knowing that the 
last bite is poisoned. 

The strategies for 2 players are fairly 
simple but the fun starts when there are 
more players. 
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Chomp 


dim M) 
for i = 0 to ^ 

LET a(i) = 6 
NEXT I 

LET A(0) = 55 

PRINT "HOW MANY PLAYERS?" 
INPUT N 
LET T - 0 
LET T = T + 1 
FOR L - 0 TO 6 
LET J = 7 - L 
PRINT Jj 
FOR C = 0 TO 6 
PRINT CHR$ ( A(C + 7 * 0) 
NEXT C 
PRINT 
NEXT L 
PRINT , 

FOR C = 1 TO 7 
PRINT C; 

NEXT C 
PRINT 

PRINT "PLAYER;";T 
410 PRINT "INPUT COORD" 
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420 INPUT A 

430 IF A = 0 THEN GO TO 999 

440 LET J = A / 10 

450 LET C = A * 10 * J - 1 

460 LET L = 7 - J 

470 LET P = C + 7 * L 

480ifp<0orp>48 then go to 420 

490 if a(p) } 0 ttien go to 600 

500 PRINT "empty space" 

510 go to 410 

600 if p = 0 then go to 700 

610 for j = l to 6 

620 FOR i = c TO 6 

630 let a(i + 7 * j) = 0 

640 next i 

650 next j 

660 cls 

670 IF T = N THEN LET T = 0 
680 GO TO 200 

700 print "player:";tj"-you lost" 
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Mastermind 

You choose the level of complexity you 
want to play at, and the computer will 
generate a code to match. 

From 3 to 7 digits can he chosen, and 
the computer will assign a number to each 
digit. No two positions will contain the 
same number. 

Variables: A Secret digits 

G Number of guesses 

R Number of digits rights 

C Number of positions right 
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Mastermind 

100 PRINT "WELCOME TO MASTERMIND" 

U0 PRINT "ENTER NO OF DIGITS IN NUMBER (3-7)" 

120 INPUT N 

130 LET N = N - 1 

140 DIM A(N) 

200 FOR I = 0 TO N 

210 LET X = RND (10) - 1 

220 FOR J = 0 TO I 

230 IF X = A(J) THEN GO TO 210 

240 NEXT J 

250 LET a(i) = X 

260 NEXT I 

270 LET G = 0 

280 go to 530 

300 INPUT B$ 

310 IF B$ = "" THEN STOP 
320 CLS 
330 PRINT B$ 

340 LET R = 0 

350 LET c = 0 

360 LET G = G + 1 

370 FOR I = 0 TO N 

380 LET X = CODE (b$) - 28 

390 IF X = A(l) THEN LET C = C + 1 


98 



TO FOR J = 0 TO N 

410 IF X = A(J) THEN LET R = R + 1 

420 NEXT J 

430 LET 3$ = TL$ (B$) 

440 NEXT I 

450 IF C = N + 1 THEN GO TO 600 
500 PRINT "NUMBERS RIGHT =";R 
510 PRINT "correct positions =";c 
520 PRINT 

530 PRINT "enter a ";N + 1 j"-figure guess" 
540 go to 300 

600 PRINT "YOU DID IT IN A "jG;" ^GUESSES" 
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Pinch 

This is another game which first 
appeared in Scientific American, this time 
in 1980. 

It is the Flatland equivalent of the 
Japanese game of Go. Two players take turns 
to place 'stones’ on an 8 position board: 
a group of connected stones is considered 
to be captured if it is surrounded on both 
sides. A group on the edge is the easiest 
to capture. 


--X0---0 

12345678 


For example, it if was X to move, a move 
to place a stone on 7 would capture the 
group on 8. If it was 0 to move, placing 
a stone at 2 would capture the group at 3. 

It is an interesting game with constantly 
varying fortunes. Once you have mastered 
the strategies of the 8 position board, 
try a 9 position board where the strategies 
are different. 
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Pinch 

100 dim g(9) 

110 PRINT "ENTER PLAYER 1 N/WE" 

120 INPUT Y$ 

130 PRINT "PLAYER 2 NAME?" 

190 INPUT Z$ 

150 LET A$ = Y$ 

160 LET B = 2 
170 GO TO 600 
200 LET C = G(l) 

210 IF C = 0 THEN RETURN 

220 FOR S = - 1 TO 1 

230 IF S = 0 THEN GO TO 330 

290 FOR J = 1 TO 6 

250 letk=i + s*j 

260ifk = 9ork = 0 then go to 300 

270 IF g(k) = 0 or g(k) = C THEN GO TO 290 

280 NEXT J 

290 IF J = 1 OR g(k) = 0 THEN GO TO 330 

300 fork = 1toj-1 

310 LET G(l + S * K) = 0 

320 NEXT K 

330 NEXT s 

390 as 

350 print 
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360 

PRINT "PINCH" 



370 

PRINT 



380 

PRINT 



390 

FOR J = 1 TO 8 



900 

PRINT CHR$ 

(6 + 3 

* g(j))j 

910 

NEXT J 



920 

PRINT 



930 

PRINT 



990 

FOR J = 1 TO 8 



950 

print "HH"; 



960 

NEXT J 



970 

PRINT 



980 

PRINT 



990 

FOR J = 1 TO 8 



500 

pRINT " AA ";J; 



510 

NEXT J 



520 

RETURN 



600 

GO SUB 390 



610 

PRINT 



620 

PRINT A$j":ENTER 

move" 


630 

INPUT 1$ 



690 

LET I = CODE (l$) 

1 -28 


650 

IF I = 0 THEN GO 

to 999 


660 

IF I > 0 AND I < 

9 THEN 

GO TO 680 

670 

GO TO 630 
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680 

IF 

NOT G(l) = 

0 THEN 

GO TO 630 

690 

LET G(l) = B 




700 

GO 

SUB 200 




710 

LET 1 = 1+1 




720 

IF 

I = 9 THEN 

LET 

I = 

■1 

730 

GO 

SUB 200 




790 

LET B = B + 1 




750 

IF 

B = 3 THEN 

LET 

B = 

■ 1 

760 

IF 

B = 2 THEN 

LET 

A$ 

= Y$ 

770 

IF 

B = 1 THEN 

LET 

A$ 

11 

a 

780 

GO 

to 610 
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Gomoku 


This is the most ambitious program in 
this book, and uses the display on the 
screen as the only record of what is 
happening in the game! 

Gomoku is a Japanese game played on 
a Go board (usually 19 x 19 grid). The 
object is to place stones very much in 
Noughts and Crosses fashion, but instead 
of looking for three in a row you must 
have 5 stones in a row to win. 

As in noughts and crosses, the stones 
can be aligned horizontally, vertically 
or diagonally. 

In this program the computer plays a 
defensive game more than an agressive 
game, but you will find it fairly difficult 
to win even though you start. 



Line 100 is a REM statement which starts 
off as (shifted) A, but machine code values 
will be POKEd into these locations. 

The operation of the ZX 80 Basic means 
that after certain values have been POKEd 
there the screen display hangs up if that 
line is displayed. 

As long as you don't display line 100 
the program functions very well. Should you 
accidentally press LIST or otherwise get 
that line displayed the only remedy I can 
suggest to delete line 100 (enter 100 
followed by New Line). The line can then 
be rentered. 

The USR program is extremely simple: 
all it does is return the value of the 
address of the screen display. 

LD HL,(16396) 

RET 

The other data which is POKEd into the 
REM statement are coordinate increments 
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for the search-for-neighbours routine. 

Program description: 

150 - 160 Subroutine which translates 

coordinate X to screen address. 

200 - 340 Print routine for board. The 

program only executes this 
once, and it is not erased. 

400 - 470 Input player's move and 

check to see if legal 

1000 - 1060 Routine (later deleted) 

to POKE machine code values 
into USR statement 

500 - 760 Routine which examines if 

player's move is part of 
a string. If it is response 
is to block the string. 

800 - 840 If player move was not part 

of a string response is 
a random one. 
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Gomoku 

100 rem mMmmmmmmmmmm 

110 LET A = 16428 
120 go to 200 

150 LET K = USR (a) + 2 * (X AND 15) - 24 
# (x / 16) + 175 
160 RETURN 
200 FOR K = 1 TO 7 
210 LET J = 8 - K 
220 PRINT J, 

230 FOR I = 1 TO 7 
240 print "D/; 

250 NEXT I 
260 PRINT 
270 PRINT 
280 NEXT K 
290 PRINT , 

300 FOR K = 1 TO 7 
310 print k;Y; 

320 NEXT K 
330 PRINT 

340 PRINT "input coords" 

Note: 

Because of the way this program is 
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CONSTRUCTEDv IT IS IMPORTANT TO HAVE THIS 
SECTION OF THE PROGRAM WORKING PROPERLY 
FROM THE BEGINNING. 

PRESS R*U*N AND SEE THAT THE BOARD DISPLAY 
IS CORRECTLY PRINTED. 

WHEN WORKING PROPERLY ENTER C*L*E*A*R ON 
THE EDIT LINE AND PRESS "NEW LINE". 

TO INPUT X 

410 IF X = 0 THEN GO TO 900 
420 LET X = X + 6 * (X / 10) 

430 LET X = X AND 119 
440 IF X / 16 = 0 OR (x AND 7) = 0 THEN GO 
TO 400 

450 go sub 150 

460 IF PEEK (k) > 6 THEN GO TO 400 

470 poke k, 9 

480 let v = 77 

1000 LET a = 16428 

1010 FOR I = 0 TO 12 

1020 PRINT A + \j 

1030 INPUT J 

1040 POKE A + I, J 

1050 PRINT PEEK (a + i) 

1060 NEXT I 
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Noth: 

Press 6*0 T*0 1*0*0*0 at this stage and 

ENTER THE FOLLOWING VALUES TO BE POKED 
INTO THE REM STATEMENT5 

16428 42 

16429 12 

16430 64 

16431 201 

16432 9 

16433 113 

16434 23 

16435 1 

16436 7 

16437 17 

16438 119 

16439 16 

16440 112 

Because of the way the ZX 80 basic operates 

IT IS NOW NOT POSSIBLE TO HAVE A SCREEN 
DISPLAY WHICH INLLDES THE REM LINE JUST 
POKED. 

THEREFORE DO NOT PRESS LIST. 
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900 stop 
Note: 

PRESS R*LPN TO SEE THAT USR FUNCTION IS 
OPERATING CORRECTLY. ENTERING AN X COORDINATE 
FROM 11 TO 77 SHOULD SEE THAT SQUARE POKED. 

WHEN OPERATING CORRECTLY PRESS C*L*E*A*R 


AND 

DELETE LINES 900 AND 1000 - 1060. 

500 

LET J 

= 0 


510 

LET U 

= X 


520 

FOR L 

= a + 5toa + 12 


550 

LET I 

= 0 


590 

LET O 

= 0 


550 

if2‘ 

- (L / 2) ( L TTCN 

LET O = - 1 

560 

IF 0 THEN LET X = U 


570 

LET X 

= X + PEEK (L) 


580 

LET X 

= X AND U9 


590 

LET I 

= 1+1 


600 

IF X / 16 = 0 OR (X AND 

15) = 0 THEN 


GO TO 

650 


610 

GO SUB 150 


620 

IF PEEK (K) = 9 THEN GO 

TO 570 
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630 IF PEEK (k) = 12 AND 0 THEN GO TO 700 

640 IF O THEN LET V = X 

650 IF 0 THEN GO TO 700 

660 IF I > J THEN LET J = I 

670 IF NOT I = J THEN GO TO 700 

680 LET W = X 

690 IF NOT PEEK (k) = 6 THEN LET W = V 
700 NEXT L 

710 IF J < 3 THEN GO TO 800 

720 IF J > 5 THEN GO TO 900 

730 LET X = W 

740 go sub 150 

750 POKE K, 12 

760 go to 400 

800 UET X = 16 * RND (7) + RND (7) 

810 go sub 150 

820 IF NOT PEEK (k) = 6 THEN GO TO 800 

830 POKE Ky 12 

840 go to 400 

900 PRINT "who won?" 


Ill 
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